home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / nan_n.inc < prev    next >
Encoding:
Text File  |  1998-07-25  |  3.1 KB  |  207 lines
  1. *---------------------------------------
  2. *
  3. *    ò\Ī
  4. *
  5. *    âjâàü[âgâëâï
  6. *
  7. *    by Shiroh Nakaya
  8. *
  9. *---------------------------------------
  10. nan_n:
  11.     move.w    C_X(a1),d1
  12.     move.w    C_Y(a1),d2
  13.     subq.w    #8,d1
  14.     subi.w    #32,d2
  15.     tst.w    C_LR_F(a1)
  16.     bne    @f
  17.  
  18.     move.w    d1,(a6)+
  19.     move.w    d2,(a6)+
  20.     move.w    d7,(a6)+
  21.     move.w    #$0003,(a6)+
  22.  
  23.     addi.w    #16,d2
  24.     addq.w    #1,d7
  25.     move.w    d1,(a6)+
  26.     move.w    d2,(a6)+
  27.     move.w    d7,(a6)+
  28.     move.w    #$0003,(a6)+
  29.  
  30.     addi.w    #16,d2
  31.     addq.w    #1,d7
  32.     move.w    d1,(a6)+
  33.     move.w    d2,(a6)+
  34.     move.w    d7,(a6)+
  35.     move.w    #$0003,(a6)+
  36.  
  37.     addi.w    #16,d2
  38.     addq.w    #1,d7
  39.     move.w    d1,(a6)+
  40.     move.w    d2,(a6)+
  41.     move.w    d7,(a6)+
  42.     move.w    #$0003,(a6)+
  43.  
  44.     rts
  45. @@:
  46.     addi.w    #$4000,d7
  47.     move.w    d1,(a6)+
  48.     move.w    d2,(a6)+
  49.     move.w    d7,(a6)+
  50.     move.w    #$0003,(a6)+
  51.  
  52.     addi.w    #16,d2
  53.     addq.w    #1,d7
  54.     move.w    d1,(a6)+
  55.     move.w    d2,(a6)+
  56.     move.w    d7,(a6)+
  57.     move.w    #$0003,(a6)+
  58.  
  59.     addi.w    #16,d2
  60.     addq.w    #1,d7
  61.     move.w    d1,(a6)+
  62.     move.w    d2,(a6)+
  63.     move.w    d7,(a6)+
  64.     move.w    #$0003,(a6)+
  65.  
  66.     addi.w    #16,d2
  67.     addq.w    #1,d7
  68.     move.w    d1,(a6)+
  69.     move.w    d2,(a6)+
  70.     move.w    d7,(a6)+
  71.     move.w    #$0003,(a6)+
  72.  
  73.     rts
  74. *---------------------------------------
  75. nan_for:
  76.     move.w    C_X(a1),d1
  77.     move.w    C_Y(a1),d2
  78.     subq.w    #8,d1
  79.     subi.w    #32,d2
  80.     tst.w    C_LR_F(a1)
  81.     bne    @f
  82.  
  83.     addi.w    #$0004,d7
  84.     move.w    d1,(a6)+
  85.     move.w    d2,(a6)+
  86.     move.w    d7,(a6)+
  87.     move.w    #$0003,(a6)+
  88.  
  89.     addi.w    #16,d2
  90.     addq.w    #1,d7
  91.     move.w    d1,(a6)+
  92.     move.w    d2,(a6)+
  93.     move.w    d7,(a6)+
  94.     move.w    #$0003,(a6)+
  95.  
  96.     addi.w    #16,d2
  97.     addq.w    #1,d7
  98.     move.w    d1,(a6)+
  99.     move.w    d2,(a6)+
  100.     move.w    d7,(a6)+
  101.     move.w    #$0003,(a6)+
  102.  
  103.     addi.w    #16,d2
  104.     addq.w    #1,d7
  105.     move.w    d1,(a6)+
  106.     move.w    d2,(a6)+
  107.     move.w    d7,(a6)+
  108.     move.w    #$0003,(a6)+
  109.  
  110.     rts
  111. @@:
  112.     addi.w    #$4004,d7
  113.     move.w    d1,(a6)+
  114.     move.w    d2,(a6)+
  115.     move.w    d7,(a6)+
  116.     move.w    #$0003,(a6)+
  117.  
  118.     addi.w    #16,d2
  119.     addq.w    #1,d7
  120.     move.w    d1,(a6)+
  121.     move.w    d2,(a6)+
  122.     move.w    d7,(a6)+
  123.     move.w    #$0003,(a6)+
  124.  
  125.     addi.w    #16,d2
  126.     addq.w    #1,d7
  127.     move.w    d1,(a6)+
  128.     move.w    d2,(a6)+
  129.     move.w    d7,(a6)+
  130.     move.w    #$0003,(a6)+
  131.  
  132.     addi.w    #16,d2
  133.     addq.w    #1,d7
  134.     move.w    d1,(a6)+
  135.     move.w    d2,(a6)+
  136.     move.w    d7,(a6)+
  137.     move.w    #$0003,(a6)+
  138.  
  139.     rts
  140. *---------------------------------------
  141. nan_back:
  142.     move.w    C_X(a1),d1
  143.     move.w    C_Y(a1),d2
  144.     subq.w    #8,d1
  145.     subi.w    #32,d2
  146.     tst.w    C_LR_F(a1)
  147.     bne    @f
  148.  
  149.     addi.w    #$0008,d7
  150.     move.w    d1,(a6)+
  151.     move.w    d2,(a6)+
  152.     move.w    d7,(a6)+
  153.     move.w    #$0003,(a6)+
  154.  
  155.     addi.w    #16,d2
  156.     addq.w    #1,d7
  157.     move.w    d1,(a6)+
  158.     move.w    d2,(a6)+
  159.     move.w    d7,(a6)+
  160.     move.w    #$0003,(a6)+
  161.  
  162.     addi.w    #16,d2
  163.     addq.w    #1,d7
  164.     move.w    d1,(a6)+
  165.     move.w    d2,(a6)+
  166.     move.w    d7,(a6)+
  167.     move.w    #$0003,(a6)+
  168.  
  169.     addi.w    #16,d2
  170.     addq.w    #1,d7
  171.     move.w    d1,(a6)+
  172.     move.w    d2,(a6)+
  173.     move.w    d7,(a6)+
  174.     move.w    #$0003,(a6)+
  175.  
  176.     rts
  177. @@:
  178.     addi.w    #$4008,d7
  179.     move.w    d1,(a6)+
  180.     move.w    d2,(a6)+
  181.     move.w    d7,(a6)+
  182.     move.w    #$0003,(a6)+
  183.  
  184.     addi.w    #16,d2
  185.     addq.w    #1,d7
  186.     move.w    d1,(a6)+
  187.     move.w    d2,(a6)+
  188.     move.w    d7,(a6)+
  189.     move.w    #$0003,(a6)+
  190.  
  191.     addi.w    #16,d2
  192.     addq.w    #1,d7
  193.     move.w    d1,(a6)+
  194.     move.w    d2,(a6)+
  195.     move.w    d7,(a6)+
  196.     move.w    #$0003,(a6)+
  197.  
  198.     addi.w    #16,d2
  199.     addq.w    #1,d7
  200.     move.w    d1,(a6)+
  201.     move.w    d2,(a6)+
  202.     move.w    d7,(a6)+
  203.     move.w    #$0003,(a6)+
  204.  
  205.     rts
  206. *---------------------------------------
  207.